home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / misc / sci / chimicad.lha / CHIMICADInstall / Install_eng < prev    next >
Encoding:
Text File  |  1997-08-11  |  5.4 KB  |  244 lines
  1. ; ChimiCad Installer Script
  2. ; $VER: chimiCad.install 39.1 (22/08/96)
  3. ;
  4.  
  5. (set vernum (getversion "libs:reqtools.library"))
  6. (set ver (/ vernum 65536))
  7. (set rev (- vernum (* ver 65536) ) )
  8.  
  9. (if (or (and (= ver 38) (< rev 1210)) (< ver 38))
  10.   (
  11.     (if(= ver 0)
  12.       (
  13.     (set sc (askchoice(prompt "ChimiCad want Reqtools.library versione 38.1210 or greater, this library it'snt present, without program could'nt work."
  14.                   " Default destination is LIBS:, it's possible to use any directory added to LIBS search PATH. ")
  15.               (help "Choose destination directory in requester.")
  16.               (choices "Install in LIBS:" "Choose directory" "Not install")
  17.               (default 0)
  18.             )
  19.     )
  20.           (select sc
  21.           (    
  22.         (copyfiles
  23.             (prompt "Sto copiando le librerie.")
  24.             (help @copyfiles-help)
  25.             (source "access/libs")
  26.             (dest ("libs:"))
  27.             (all)
  28.         )
  29.         (message("Reqtools.library copied in LIBS:"))
  30.           )
  31.           (
  32.         (set dedi
  33.             (askdir(prompt "Choose a directory added to LIBS: search PATH")
  34.                    (help"Use requester to choose directory.")
  35.                    (default "sys:")
  36.              )
  37.         )
  38.         (copyfiles
  39.             (prompt "Sto copiando le librerie.")
  40.             (help @copyfiles-help)
  41.             (source "access/libs")
  42.             (dest (dedi))
  43.             (all)
  44.         )
  45.               )
  46.           (
  47.             (abort("Not install choosed...program can't run without Reqtools.library then abort install. "))
  48.           )         
  49.     )
  50.       )    
  51.       (
  52.     (set sc (askchoice  (prompt "Chimicad tested with Reqtools.library version 38.1210 or greater. ")
  53.                      (help "Your older Reqtools.library version will be replaced by new. ")
  54.                 (choices "Update" "Don't update")
  55.                     (default 0)
  56.         )
  57.     )
  58.         (if (= sc 0)
  59.            (
  60.         (copyfiles
  61.             (prompt "Sto copiando le librerie.")
  62.             (help @copyfiles-help)
  63.             (source "access/libs")
  64.             (dest ("libs:"))
  65.             (all)
  66.         )
  67.         (message("Reqtools.library copied in LIBS:"))
  68.       )
  69.         (message("Not update choosed...program could not work, finish install and try to run it. "))
  70.     )
  71.       )
  72.     )     
  73.  
  74.   )
  75.     (message("Reqtools.library 38.1210 or greater already present in your system."))
  76. )
  77.  
  78. ; WHERE INSTALL ChimiCad ?
  79. (set dove (askdir
  80.   (prompt "Choice of installation directory for ChimiCad.")
  81.   (default "sys:")
  82.   (help
  83.     (cat "From here you can choose the directory where install program and. "
  84.          "related files. Installer create automatically here a directory called"
  85.          "ChimiCad from where the program will be accesible. "
  86.     ))
  87. ))
  88.  
  89. ;Crea directory
  90. (makedir (tackon dove "chimicad")
  91.  
  92. )
  93.  
  94. (makedir (tackon dove "chimicad/ACCESSORI")
  95.  
  96. )
  97.  
  98. (makedir (tackon dove "chimicad/MANUALI")
  99.  
  100. )
  101.  
  102. (makedir (tackon dove "chimicad/ACCESSORI/ROTAZIONI")
  103.  
  104. )
  105.  
  106. (makedir (tackon dove "chimicad/ACCESSORI/BANCHI")
  107.  
  108. )
  109.  
  110. ;Copia dei files
  111. (copyfiles
  112.   (prompt "Copying drawer icon.")
  113.   (help @copyfiles-help)
  114.   (source "chimicad.info")
  115.   (dest dove)
  116.       
  117. )
  118.  
  119. (copyfiles
  120.   (prompt "Copying drawer icon.")
  121.   (help @copyfiles-help)
  122.   (source "chimicad.info")
  123.   (dest (tackon dove "chimicad"))
  124.   (newname "MANUALS.info")
  125.       
  126. )
  127.  
  128. (copyfiles
  129.   (prompt "Copying program.")
  130.   (help @copyfiles-help)
  131.   (source "prog")
  132.   (dest (tackon dove "chimicad"))
  133.   (all)
  134.       
  135. )
  136.  
  137. (copyfiles
  138.   (prompt "Copying docs.")
  139.   (help @copyfiles-help)
  140.   (source "doc/english")
  141.   (dest (tackon dove "chimicad/manuali"))
  142.   (all)
  143.       
  144. )
  145.  
  146.  
  147. (copyfiles
  148.   (prompt "Copying interface.")
  149.   (help @copyfiles-help)
  150.   (source "access/interfaccia")
  151.   (dest (tackon dove "chimicad/ACCESSORI"))
  152.         
  153. )
  154.  
  155. (copyfiles
  156.   (prompt "Copying settings.")
  157.   (help @copyfiles-help)
  158.   (source "access/chimicad.settings")
  159.   (dest (tackon dove "chimicad/ACCESSORI"))
  160.         
  161. )
  162.  
  163. (copyfiles
  164.   (prompt "Copying catalog.")
  165.   (help @copyfiles-help)
  166.   (source "access/cat/chimicad.catalog.e")
  167.   (dest "locale:catalogs/english")
  168.   (newname "chimicad.catalog")      
  169. )
  170.  
  171. (copyfiles
  172.   (prompt "Copying shapes.")
  173.   (help @copyfiles-help)
  174.   (source "access/shapes.shp")
  175.   (dest (tackon dove "chimicad/ACCESSORI"))
  176.         
  177. )
  178.  
  179. (copyfiles
  180.   (prompt "Copying rotations.")
  181.   (help @copyfiles-help)
  182.   (source "access/rotazioni")
  183.   (dest (tackon dove "chimicad/ACCESSORI/ROTAZIONI"))
  184.   (all)
  185.       
  186. )
  187.  
  188. (set sc (askchoice  (prompt "Chimicad use Greeksymbols.font for his SPECIAL FONT. "
  189.              "This font will be installed in FONTS: . "
  190.              " If this font is not present program can't work properly.")
  191.             (help " If you doesn't want install this font, you'll need to modify the file"
  192.               "Chimicad.settings, changing Greeksymbols.font with an other name of font. "
  193.               "present in your system.") 
  194.             (choices "Install" "Not Install")
  195.             (default 0)
  196.     )
  197. )
  198.  
  199. (if (= sc 0) 
  200.    (
  201.     (copyfiles
  202.          (prompt "Sto copiando il font Symbol.")
  203.           (help @copyfiles-help)
  204.           (source "access/fonts")
  205.           (dest "fonts:")
  206.           (all)      
  207.     )    
  208.     (message ("Greeksymbols.font installed in FONTS: "))
  209.       )    
  210.     (message ("Greeksymbols.font not installed. Change in ChimiCad.settings `Greeksymbols.font' with an other font name."))
  211. )
  212.  
  213.  
  214. (copyfiles
  215.   (prompt "Copying libraries.")
  216.   (help @copyfiles-help)
  217.   (source "access/libs")
  218.   (dest ("LIBS:"))
  219.   (all)
  220.       
  221. )
  222.  
  223. (copyfiles
  224.   (prompt "Copying shapes banks.")
  225.   (help @copyfiles-help)
  226.   (source "access/BANCHI")
  227.   (dest (tackon dove "chimicad/ACCESSORI/BANCHI"))
  228.   (all)
  229.       
  230. )
  231.  
  232. (set ekf(exists("access/chimicad.key")))
  233.  
  234. (if (= ekf 1)
  235.  
  236.     (copyfiles
  237.           (prompt "Sto copiando il key file.")
  238.           (help @copyfiles-help)
  239.           (source "access/chimicad.key")
  240.           (dest (tackon dove "chimicad/ACCESSORI"))
  241.     )
  242.     (message("Evaluation version, key file not present."))
  243.  
  244. )